home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / slither 4.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  96 lines
  1. 100 POKE53280,.:POKE53281,.:GOTO480
  2. 110 PRINTS$;SC:RETURN
  3. 480 CLR:FORI=54272TO54296:POKEI,.:NEXT:POKE54296,15:POKE54277,17:POKE54278,240
  4. 490 POKE54276,33:C=54272
  5. 500 PRINT"[147][153]               SLITHER IV               "
  6. 591 S$="[159]SC:[157]":H$="HI:[157]":M$="[159]SNAKES:[157]"
  7. 592 B$="BONUS:[157]"
  8. 593 I$="[154]PRESS FIRE TO CONTINUE"
  9. 594 E$="[156]  PLAY AGAIN ? (Y/N)  "
  10. 599 PRINT"[145]<[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]>"
  11. 600 PRINT"[158]REQUIRES JOYSTICK IN PORT #1 
  12. 601 [153]"PRESS:WAIT":[153]"JOYSTICKWAIT FOR INSTRUCTIONS"
  13. 602 [153]"FIRE BUTTONWAIT TO PLAY
  14. 610 A=1465:SM=65:ML=5
  15. 620 ER=32:MA=.:TR=81:CH=33:WA=TR:PA=56321:SR=1024:RS=1104
  16. 630 OP=127:TF=255:N1=128:N2=8:N3=16:N4=4:NE=1:SC=.:DIMJS(12),SN(12):NM=2:NC=1
  17. 631 FT=15:F0=4:SE=17:SX=16:OE=1:SF=65:S9=64:EV=11:DE=2:TE=10
  18. 640 CL=NC:JS(1)=-40:JS(2)=40:JS(8)=1:JS(4)=-1:J1=8
  19. 641 SN(1)=30:SN(2)=22:SN(8)=62:SN(4)=60:HU=100:NI=9:X1=C+F0
  20. 650 GOSUB840:GOSUB850
  21. 651 IFFR<>16THEN660
  22. 652 IFJS(J1)<>.THENGOSUB3000
  23. 656 GOTO650
  24. 660 POKEC+4,17:POKEC+1,72:POKEC,200:POKEC+4,16
  25. 670 POKE53281,1:POKE646,1:PRINTCHR$(147):POKE53280,.:POKE53281,.
  26. 680 POKEC+4,17:POKEC+1,81:POKEC+1,120:POKEC+4,16:GOSUB860
  27. 690 A=1145:FORI=1TONM
  28. 700 W=INT(RND(I)*919)+1:J=INT(RND(I)*6)+1:IFPEEK(RS+W)<>32THEN700
  29. 710 IFW+RS=ATHEN700
  30. 715 POKEC+4,17:POKEC+1,JS(2):POKEC,JS(10):POKEC+4,16
  31. 720 POKEW+RS,SM:POKEW+C+RS,J:NEXT
  32. 730 FORI=1TONC:W=INT(RND(I)*919)+1
  33. 740 W=INT(RND(I)*919)+1:J=INT(RND(I)*6)+7:K=83
  34. 750 IFPEEK(RS+W)<>32THEN740
  35. 760 IFW+RS=ATHEN740
  36. 770 POKEC+4,17:POKEC+1,34:POKEC,75:POKEW+RS,K:POKEW+C+RS,J
  37. 780 NEXT:POKEC+4,16
  38. 781 POKEC,CH:POKEC+OE,SN(DE):L=8:TI$="000000"
  39. 790 POKEA,SN(J1):GOSUB850:B=A+JS(J1):L=J1
  40. 800 ONINT((HU-PEEK(B))/NI)GOTO820,1000,1000,830,,,830,830,,,830
  41. 820 POKEX1,SE:CL=CL-NE:SC=SC+TE:GOSUB110:POKEX1,SX:IFCL=.THEN1040
  42. 830 POKEX1,SF:POKEA,TR:POKEX1,S9
  43. 835 A=B:GOTO790
  44. 840 P=PEEK(PA):FR=PANDSX:RETURN
  45. 850 J1=FT-(PEEK(PA)ANDFT):J1=J1*-(JS(J1)<>.)+L*-(JS(J1)=.):RETURN
  46. 860 PRINT"[158]               SLITHER IV               "
  47. 862 PRINT"[145][159]                                        [158]"H$;HS;B$;BO;M$;ML;S$;SC
  48. 870 FORI=1104TO1143:POKEI,WA:POKEI+C,13:POKEI+880,WA:POKEI+C+880,13:NEXT
  49. 880 FORI=1104TO2023STEP40:POKEI,WA:POKEI+C,13:POKEI+39,WA:POKEI+39+C,13:NEXT
  50. 890 W=INT(RND(.)*5)+1
  51. 900 ONWGOSUB920,940,970
  52. 910 RETURN
  53. 920 FORI=1233TO1780STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+11,WA:POKEI+11+C,13:NEXT
  54. 930 RETURN
  55. 940 FORI=1124TO1364STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+NE,WA:POKEI+NE+C,13
  56. 950 POKEI+330,WA:POKEI+330+C,13:POKEI+331,WA:POKEI+331+C,13:NEXT
  57. 960 FORI=1584TO1596:POKEI,WA:POKEI+C,13:POKEI+14,WA:POKEI+14+C,13:NEXT:RETURN
  58. 970 FORI=1154TO1394STEPJS(2):POKEI,WA:POKEI+C,13:POKEI+NE,WA:POKEI+NE+C,13:NEXT
  59. 980 FORI=1440TO1920STEPJS(2):POKEI,WA:POKEI+C,13
  60. 990 POKEI+12,WA:POKEI+12+C,13:NEXT:RETURN
  61. 1000 POKEB,214
  62. 1010 POKEA,81:POKEC+4,17:FORI=QTO10:POKEC+1,RND(.)*200+5
  63. 1020 POKEC,RND(.)*100+10:NEXT:POKEC+4,16:ML=ML-1:IFML=.THEN1130
  64. 1030 GOTO1080
  65. 1040 BO=INT((100-VAL(TI$))/10):IFBO<.THENBO=.
  66. 1041 IFBO>9THENBO=9
  67. 1050 PRINT"[153]"B$;BO
  68. 1060 POKEA,TR:POKEB,K:POKEX1,17:FORI=1TO30:POKEC+1,6*I
  69. 1070 POKEC,6*I:NEXT:POKEX1,16
  70. 1080 SC=SC+BO:PRINTS$;SC:PRINTM$;ML:IFSC>HSTHENHS=SC:PRINT"[153]"H$;HS
  71. 1100 PRINTI$
  72. 1110 GOSUB840:IFFR=16THEN1110
  73. 1120 PRINTCHR$(147):NM=NM+2:NC=NC+2:CL=NC:BO=.:GOTO670
  74. 1130 FORI=105TO.STEP-1:POKE53280,I:NEXT:POKE53280,4
  75. 1150 PRINTS$;SC;M$;ML:IFSC>HSTHENHS=SC:PRINT"[153]"H$;HS
  76. 1155 PRINTE$
  77. 1160 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN1160
  78. 1161 IFAN$="N"THEN2000
  79. 1170 BO=.:SC=.:NC=1:NM=2:CL=NC:PRINTCHR$(147):ML=5
  80. 1180 GOTO670
  81. 2000 FORI=54272TO54296:POKEI,.:NEXT:PRINT"[147]":END
  82. 3000 PRINT" USE THE JOYSTICK TO GUIDE YOUR SNAKES  THROUGH THE GARDEN";
  83. 3010 PRINT" LOOKING FOR TREATS   LIKE THIS [211].":PRINT"BUT DON'T TOUCH THE ";
  84. 3020 PRINT"POISON MUSHROOMS   ([193]), THE GARDEN WALLS ([153][209]) OR YOUR       ";
  85. 3030 PRINT"SNAKE'S BODY. THEY ARE ALL DEADLY."
  86. 3031 PRINT"                                  "
  87. 3033 PRINT"YOU WILL HAVE 5 SNAKES. WHEN THEY ";
  88. 3040 PRINT"ARE  ALL DEAD THE GAME IS OVER.":PRINT"IF YOU CLEAR THE SCREEN OF";
  89. 3050 PRINT" ALL THE     TREATS ([211]) OR YOU LOSE YOUR SNAKE YOU   MOVE ON TO A";
  90. 3060 PRINT" HARDER SCREEN.":PRINT"CLEAR THE SCREEN QUICKLY ENOUGH AND ";
  91. 3065 PRINT"YOUWILL RECEIVE A BONUS BASED ON YOUR SNAKESPEED.
  92. 3070 [153]"SYS PRESS FIRE BUTTON TO PLAY "
  93. 3075 [141]840
  94. 3080 [139]FR[178]16[167]3075
  95. 3085 [142]
  96.